home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / 0141ter2.zip / 0141TER2._XE / MANUAL.EXE / TEST78.PAS < prev    next >
Pascal/Delphi Source File  |  1994-01-19  |  727b  |  27 lines
  1.  
  2. { -------------------------- Terminate utility ------------------------------ }
  3. {                                                                             }
  4. { This program will simply test if some of the lines in TERMINAT.DOC is       }
  5. { longer than 78, which is the maximum allowed in each helpfile.              }
  6. {                                                                             }
  7. { -------------------------- Terminate utility ------------------------------ }
  8.  
  9. var
  10.   t:text;
  11.   s:string;
  12.   x:word;
  13.  
  14. begin
  15.   assign(t,'terminat.doc');
  16.   reset(t);
  17.   x:=0;
  18.   while not eof(t) do
  19.   begin
  20.     inc(x);
  21.     readln(t,s);
  22.     if length(s)>78 Then writeln(x,': '+s);
  23.   end;
  24.   close(t);
  25. end.
  26.  
  27.